home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 4
/
CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso
/
magazine
/
psion
/
misc
/
vacation.lzx
/
vacation.opa
/
vacation.txt
Wrap
Text File
|
1993-12-26
|
7KB
|
681 lines
OPLObjectFile**
LOC::M:\OPL\VACATION.OPL
Vacation.OPP
\VAC\
PERSFIL$
LIN1POS%
NAME$
FNAM$
CURRDAT&
REDRAW%
DRAWLIN%
KMOD%
CLIN%
PREVLIN%
CURRDAY%
PREVDAY%
ESCDAT&
NDATE&
GPERS$
GBFWD
GENTITLE
GUSED
GFROM&
GDAYS
GREASON$
GCONTCT$
NOPERS%
DAT1970&
LVPOS%
SYRDAY%
CSRCH$
FONT%
WIDTH%
CHARSIZ%
START%
TOTDAYS%
PEOPLE%
SHOWREA$
SHOWREA%
HELPSCR%
CALLEAV$
LEAVCAL$
LEAVCAL%
CALBASE%
HEIGHT%
GPEOPLE%
GDAYS%
GNAME%
GSIZE%
GWID%
GWEEK%
GBULL%
GBANN%
GCAL%
GANTT%
OPENFIL
DRAWSCRN
GETKEY
Calendar
Leave
HideReas
PERSFIL$
FNAM$
REDRAW%
APERS$
ABFWD
AENTITLE
AUSED
Create new file
Since you have requested a new
data file, you should enter a
couple of names. When you have
finished name entry, press ESC.(
Press ENTER to continue, or
ESC to terminate Vacation.
APERS$
ABFWD
AENTITLE
AUSED
BFROM&
BDAYS
BREASON$
BCONTCT$
BFROM&
BDAYS
BREASON$
BCONTCT$
RECALC
DRAWLIN
FONT%
CURRDAT&
CURRDAY%
DAT1970&
SYRDAY%
LIN1POS%
CLIN%
NOPERS%
WIDTH%
CHARSIZ%
REDRAW%
GSIZE%
GBANN%
FNAM$
START%
GWEEK%
GCAL%
DRAWLIN%
CALBASE%
HEIGHT%
GPEOPLE%
PREVLIN%
PREVDAY%
{QO<{QO<{Q
Pers.K
{QO<{QO<{Q
+?MTWTFSSMTWTFSSMTWTFSSMTWTFSSMTWTFSSMTWTFSSMTWTFSSMTWTFSSMTWTFSS
DRAWLIN%
CHARSIZ%
FONT%
GPERS$
START%
CALBASE%
LIN1POS%
CLIN%
LEAVCAL%
REDRAW%
LVPOS%
CURRDAT&
TOTDAYS%
WIDTH%
SHOWREA%
Calendar
Calendar
APERS$#
AID$#
APERS$#
BFROM&!
BTO&!
BFROM&!
BTO&!
BDAYS"
BTO&!
BFROM&!
BFROM&!
BDAYS"
BFROM&!
BFROM&!
BREASON$#
HELPSC
LEAVCAL%
REDRAW%
LEAVCAL$
SHOWREA$
CALLEAV$
KMOD%
CLIN%
PEOPLE%
LIN1POS%
NOPERS%
PREVLIN%
CURRDAY%
PREVDAY%
CURRDAT&
TOTDAYS%
CSRCH$
LVPOS%
EUDAIQPLFGJSYRCTBXZ
People+
EnterOE+
UpdateOU+
DeleteODh+ AllPeopleOA
Insert ItemOI+
Modify ItemOQ+
Purge ItemOPh+
List ItemsOL
Search+ Find PrevOF+ Find NextOGh+
Jump to DateOJ+
TodayOYh+
Sort leaveOS
Special
TidyOT+
BackupOBh+
Zoom inOz+
Zoom OutOZh+
ExitOX
keyIC
keyEC`[
keyIC
keyEC`[
Hot key not defined
O{0\[
No matches for
APERS$#
LH4\[!
Key not defined
KMOD%
REPOS
GPERS$
GBFWD
GENTITLE
GUSED
NOPERS%
REDRAW%
Enter Person's Details
B/FwdO
EntitlementO
UsedO
Enter vacation?+
Yes,No
APERS$'
ABFWD&
AENTITLE&
AUSED&
AID$'
PERSUPD
NOPERS%
Update All People
This option scrolls through all
people on file, to allow you to
do year end processing, etc.
ConfirmO
CancelO
PERSUPD
REPOS
LIN1POS%
CLIN%
REDRAW%
NOPERS%
PEOPLE%
LIN1POS%
CLIN%
GPERS$
GBFWD
GENTITLE
GUSED
REDRAW%
APERS$#
ABFWD"
AENTITLE"
AUSED"
Update Person's Details
B/FwdO
EntitlementO
UsedO
APERS$'
ABFWD&
AENTITLE&
AUSED&
REPOS
LIN1POS%
CLIN%
GPERS$
LVPOS%
NOPERS%
REDRAW%
APERS$#
Delete Person's Details
Name -
ConfirmO
CancelO
AID$#
BID$#
AID$#
REPOS
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
GFROM&
CURRDAT&
CURRDAY%
GREASON$
GDAYS
GCONTCT$
REDRAW%
AID$#
APERS$#
Insert Leave (+
ABFWD"
AENTITLE"
AUSED"
days left)K
Calendar
Calendar
Insert Calendar Item
+ From dateO
+ Thru dateO
No. DaysO(h|O(|
Reason
Contact
+ End point+
Thru date,No. days
BID$'
BFROM&%
BTO&%
BDAYS&
BREASON$'
BREASON$'
BCONTCT$'
AUSED&
AUSED"
REPOS
REDRAW%
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
LVPOS%
CURRDAT&
CURRDAY%
GFROM&
GDAYS
GREASON$
GCONTCT$
SHOWREA%
APERS$#
AID$#
Browse leave (+
ABFWD"
AENTITLE"
AUSED"
days left)K
Calendar
Calendar
Browse calendar items
BFROM&!
BTO&!
{I=\[
Please position on leave itemO
BFROM&!
BTO&!
BDAYS"
BREASON$#
BCONTCT$#
+ From dateO
+ Thru date -
No. Days LeaveO(h|O(|
Reason
Contact
BDAYS"
AUSED&
AUSED"
BDAYS"
BFROM&!
BTO&!
BDAYS"
BREASON$#
BCONTCT$#
BFROM&!
BTO&!
BDAYS"
BREASON$#
BID$'
AID$#
BFROM&%
BTO&%
BDAYS&
BREASON$'
BCONTCT$'
REPOS
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
REDRAW%
LVPOS%
CURRDAT&
CURRDAY%
GFROM&
APERS$#
AID$#
Purge leave (+
ABFWD"
AENTITLE"
AUSED"
days left)K
Calendar
Calendar
Purge calendar item
BFROM&!
BTO&!
{I=\[
BFROM&!
BTO&!
+ From dateO
+ Thru date +
ConfirmO
CancelO
BDAYS"
AUSED&
AUSED"
BDAYS"
REDRAW%
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
LVPOS%
DAT1970&
SYRDAY%
APERS$#
AID$#
APERS$#
LeaveK
Calendar
Calendar
Calendar items
BFROM&!
{QO<{QO<{Q
BTO&!
{QO<{QO<{Q
BDAYS"
BREASON$#
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
LVPOS%
CURRDAT&
CURRDAY%
REDRAW%
TOTDAYS%
PREVDAY%
DAT1970&
SYRDAY%
APERS$#
AID$#
Calendar
Calendar
BFROM&!
BFROM&!
{I9\[
BFROM&!
No later leave enteredO
No later calendar itemsO
L{I5\[
{QO<{QO<{Q
LEAVCAL%
LIN1POS%
CLIN%
GPERS$
LVPOS%
CURRDAT&
CURRDAY%
REDRAW%
TOTDAYS%
PREVDAY%
DAT1970&
SYRDAY%
APERS$#
AID$#
Calendar
Calendar
BFROM&!
BFROM&!
{I1\[
BFROM&!
No earlier leave enteredO
No earlier calendar itemsO
L{I5\[
{QO<{QO<{Q
NEWDATE
NDATE&
CURRDAT&
CURRDAY%
REDRAW%
Go to date
New dateO
NDATE&
CURRDAT&
TOTDAYS%
PREVDAY%
CURRDAY%
REDRAW%
DAT1970&
SYRDAY%
L{I5\[
{QO<{QO<{Q
NEWDATE
CURRDAT&
CURRDAY%
ESCDAT&
NDATE&
REDRAW%
SHOWREA%
SHOWREA$
ShowLeav
ShowBus
ShowReas
HideReas
LEAVCAL%
LEAVCAL$
CALLEAV$
REDRAW%
Calendar
Leave
Leave
Calendar
LEAVCAL%
CALBASE%
CHARSIZ%
START%
Calendar
Calendar
REPOS
CURRDAT&
CURRDAY%
REDRAW%
Show all people with leave
TodayOT+
Week comingOW
BFROM&!
BTO&!
BID$#
CalendarG\[4
BID$#
No people on leave that day
1 leave item found
leave items foundK
KMOD%
FONT%
NEWDATE
RECALC
LIN1POS%
CLIN%
WIDTH%
GWID%
FONT%
CHARSIZ%
GSIZE%
START%
GANTT%
TOTDAYS%
GDAYS%
PEOPLE%
GPEOPLE%
NDATE&
CURRDAT&
CURRDAY%
CALBASE%
GCAL%
NOPERS%
HEIGHT%
REDRAW%
NOPERS%
PEOPLE%
HEIGHT%
CHARSIZ%
PERSFIL$
REDRAW%
Back Up Leave Data
+#Copy all data from your leave files
+&to a backup area, for use in the event
+#of disk fails / corrupted data etc.
Backup fileOA
+(Silly sod - can't back up onto data file
CPERS$
CBFWD
CENTITLE
CUSED
CPERS$'
APERS$#
CBFWD&
ABFWD"
CENTITLE&
AENTITLE"
CUSED&
AUSED"
CID$'
AID$#
DFROM&
DDAYS
DREASON$
DCONTCT$
DID$'
BID$#
DFROM&%
BFROM&!
DTO&%
BTO&!
DDAYS&
BDAYS"
DREASON$'
BREASON$#
DCONTCT$'
BCONTCT$#
Backup complete
REDRAW%
CURRDAT&
CURRDAY%
Remove old leave
Prior toO
ConfirmO
CancelO
Tidying up old leave
BTO&!
Old leave tidied up
Exit from Vacation?
YesOY+
Oy@`[
On@[
HELPSCR%
REDRAW%
Vacation Tracker
Written by Frank McCormack
Version 1.1, December 1993
+!This program takes the place of a
wall chart, tracking people's
+!location on leave/business travel
Layout of the display
+"Members of staff - up to 13 people
+"shown at a time, but any number of
+"people can be held in the database
+ Dates - bars are drawn against a
person's name for leave booked
Current Person
Highlighted by bolding the name
+ and drawing a horizontal line in
the 'Dates' area of the screen.
+"Move by using up/down arrows, page
+"up/down, or initial of req. person
Current Date
+#A vertical line in the 'Dates' area
+!highlights the current date. Move
+#using left/right arrows, home / end
+#+ and -, or Psion/J to jump to date
+!or SPACE to jump to today's date.
Entering Details
+ Use Psion/E from the PEOPLE menu
+!to put in names/leave entitlement
+!Then, as leave / travel is booked
+!put horiz. cursor onto req.person
+ use Psion/I to enter the details
Doing Enquiries
+ Position the horiz. and vertical
+"cursor lines on the required item,
+!press ENTER to show full details.
Use Psion/L to show all leave
taken by a person.
Tricky Bits
+ To show all people absent on any
+"given day, put the vertical cursor
+"on the required day, press Psion/S
and all people with entries for
+!that day will be sorted together.
Registration (
15/$20)
+"To obtain documentation/details of
upgrades, please send cheque to
Frank McCormack
AmsterdamerStrasse 3, Apt. 308
80805 Munich, Germany
+!Press ENTER to see next/prev page
nC`[&
pC`[#
VACATIONb
OPENFILU
DRAWSCRN
DRAWLIN]
GETKEY
GETK*
KEYA9
KEYU)
REPOS
PERSUPD
KEYD!
KEYI3
KEYQD!
KEYPc%
KEYGP+
NEWDATE
KEYR82
DCAL{3
KEYS04
ZPOS_6
RECALC
KEYBO8
KEYTK;
KEYX2<
HELPSC